home *** CD-ROM | disk | FTP | other *** search
/ Aminet 40 / Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso / Aminet / util / cdity / ModeProSrc.lha / Prefs / PickBD.c < prev    next >
C/C++ Source or Header  |  1998-07-29  |  2KB  |  76 lines
  1. #include "mpp.h"
  2. extern UBYTE    ModePro[];
  3. extern STRPTR   MiscText[];
  4. extern UBYTE    filename[513];
  5. extern struct   FileRequester *BackdropFileReq;
  6. extern struct   TextAttr *TAttr;
  7.  
  8. #define PATH_SIZE 512
  9.  
  10. BOOL SelectBackdropFile(UBYTE *title,struct Window *Parent,STRPTR OldFile)
  11. { 
  12.   WORD width;
  13.   char path[PATH_SIZE],*file,*p2;
  14.   
  15.   
  16.   
  17.   if(OldFile)
  18.   {
  19.     file=FilePart(OldFile);
  20.     strncpy(path,OldFile,PATH_SIZE);
  21.     path[PATH_SIZE-1]=0;
  22.     if(p2=PathPart(path))
  23.     {
  24.       *p2=0;
  25.     }
  26.   }
  27.   else
  28.   {
  29.     file=0;
  30.     path[0]=0;
  31.   }
  32.   
  33.   if(!BackdropFileReq)
  34.   {
  35.     width=Parent->Width/2;
  36.     BackdropFileReq=(struct FileRequester *)AllocAslRequestTags(ASL_FileRequest, 
  37.                     ASLFR_TextAttr,        TAttr,
  38.                     ASLFR_InitialTopEdge,  Parent->TopEdge+8,
  39.                     ASLFR_InitialLeftEdge, Parent->LeftEdge+width/2,
  40.                     ASLFR_InitialWidth,    width,
  41.                     ASLFR_InitialHeight,   Parent->Height-16,
  42.  
  43.                     ASLFR_DoPatterns  ,    TRUE,
  44.                     ASLFR_InitialPattern,  "~(#?.info)",
  45.                     ASLFR_PrivateIDCMP,    TRUE,
  46.                     TAG_DONE); 
  47.   }
  48.   if(BackdropFileReq)
  49.   {
  50.     if(AslRequestTags(BackdropFileReq, 
  51.                   ASLFR_Window   ,       Parent,
  52.                   ASLFR_SleepWindow ,    TRUE,
  53.                   ASLFR_TitleText,       title,
  54.                   TAG_SKIP,              (file?0:2), // if no file skip the next 2
  55.                   ASLFR_InitialFile,     file,
  56.                   ASLFR_InitialDrawer,   path,
  57.                   TAG_DONE))
  58.     {
  59.       strncpy(filename,BackdropFileReq->fr_Drawer,512);
  60.       if(AddPart(filename,BackdropFileReq->fr_File,512))
  61.       {
  62.         BPTR l;
  63.         if(l=Lock(filename,ACCESS_READ))
  64.         {
  65.           NameFromLock(l,filename,512);
  66.           UnLock(l);
  67.         }
  68.         return(TRUE);
  69.       }
  70.     }   
  71.   }
  72.   return(FALSE);
  73. }
  74.  
  75.  
  76.